(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    133710,       3325]
NotebookOptionsPosition[     29334,        959]
NotebookOutlinePosition[    128191,       3162]
CellTagsIndexPosition[    128045,       3155]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["Mathematica", "\[RegisteredTrademark]"], TraditionalForm]]],
 " Journal"
}], "OnlineHeader",
 CellTags->"OnlineHeader"],

Cell[CellGroupData[{

Cell["Enter Title Here", "Title"],

Cell["Enter Subtitle Here", "Subtitle"],

Cell["\<\
Enter Author Here
Enter Additional Author Here\
\>", "Author"],

Cell["\<\
Enter abstract text here (150-word limit). Enter abstract math display in a \
separate cell below:\
\>", "Abstract"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{"x", 
     RowBox[{"\[DifferentialD]", "x"}]}]}], "+", 
   SqrtBox["z"]}], TraditionalForm]], "DisplayFormula"],

Cell["Enter continued abstract text here.", "Abstract"],

Cell[CellGroupData[{

Cell["Enter Section Title Here", "Section"],

Cell[TextData[{
 "Enter text here. Enter an inline Mathematica expression here: ",
 Cell[BoxData["$Epilog"], "MCode"]
}], "Text"],

Cell[TextData[{
 "Enter text here. Enter a traditional inline mathematical expression here: \
",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Beta]", "=", "2"}], TraditionalForm]], "Math"]
}], "Text"],

Cell["\<\
Enter text here. Run the punctuation for mathematics as follows. The function \
is defined by\
\>", "Text"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"\[Integral]", 
     RowBox[{"x", " ", "d", "\[InvisibleSpace]", "x"}]}], "+", 
    SqrtBox["z"]}], ","}], TraditionalForm]], "DisplayFormula"],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]], "Math"],
 " is positive."
}], "Text"],

Cell["\<\
Enter text here. Enter equation for display in a separate cell below:\
\>", "Text"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{"x", " ", "d", "\[InvisibleSpace]", "x"}]}], "+", 
   SqrtBox["z"], " "}], TraditionalForm]], "DisplayFormulaNumbered"],

Cell["\<\
Enter text here. Input and Output cells follow; end text with Input/Output \
following with a period like this. \
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "+", "2"}]], "Input"],

Cell[BoxData["4"], "Output"]
}, Open  ]],

Cell["Enter text here. Code cell follows.", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetAttributes", "[", 
   RowBox[{"whileTrueLoops", ",", " ", "HoldAll"}], "]"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"whileTrueLoops", "[", 
    RowBox[{"body_", ",", " ", "iters__"}], "]"}], " ", ":=", " ", "\n", 
   "     ", 
   RowBox[{
    RowBox[{"Catch", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Not", "[", "body", "]"}], ",", " ", 
         RowBox[{"Throw", "[", "False", "]"}]}], "]"}], ",", " ", "iters"}], 
      "]"}], "]"}], " ", "=!=", " ", "False"}]}], ";"}]}], "Code",
 CellChangeTimes->{{3.6622311831784782`*^9, 3.662231184521846*^9}}],

Cell["\<\
initialise[howManyStepsLeftAndRight_, givenWordForTest_, alphLetInt_: \
\[Euro]alphThreeLetInt]\
\>", "Program",
 Evaluatable->False,
 CellAutoOverwrite->False],

Cell[TextData[{
 StyleBox["Program ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["NumberedProgram"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Program caption. (It is best to simply use Input/Output, though.)"
}], "NumberedProgramCaption"],

Cell[CellGroupData[{

Cell["Enter Subsection Title Here", "Subsection"],

Cell["Enter quote here.", "Quote",
 TaggingRules->{"AnnotationsDeleted" -> True},
 CellID->6727225],

Cell["Enter text here. ", "Text"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{"x", " ", "d", "\[InvisibleSpace]", "x"}]}], "+", 
   SqrtBox["z"]}], TraditionalForm]], "DisplayFormulaNumbered"],

Cell[CellGroupData[{

Cell["Enter item 1 numbered text here.", "ItemNumbered"],

Cell["Enter item 1 paragraph text here.", "ItemParagraph"],

Cell[CellGroupData[{

Cell["Enter subitemnumbered 1 text here.", "SubitemNumbered"],

Cell["Enter subitemnumbered 1 paragraph text here.", "SubitemParagraph"],

Cell["Enter subitemnumbered 2 text here.", "SubitemNumbered"],

Cell["Enter subitemnumbered 2 paragraph text here.", "SubitemParagraph"]
}, Open  ]],

Cell["Enter item 2 numbered text here.", "ItemNumbered"],

Cell["Enter item 2 paragraph text here.", "ItemParagraph"],

Cell["Enter item 3 numbered text here.", "ItemNumbered"],

Cell["Enter item 3 paragraph text here.", "ItemParagraph"]
}, Open  ]],

Cell["Enter question here. ", "Question"],

Cell["Enter answer here. ", "Answer",
 TaggingRules->{"AnnotationsDeleted" -> True},
 CellID->109399069],

Cell["Enter text here.", "Text"],

Cell[CellGroupData[{

Cell["Enter item 1 text here.", "Item"],

Cell["Enter item 1 paragraph text here.", "ItemParagraph"],

Cell[CellGroupData[{

Cell["Enter subitem 1 text here.", "Subitem"],

Cell["Enter subitem 1 paragraph text here.", "SubitemParagraph"],

Cell["Enter subitem 2 text here.", "Subitem"],

Cell["Enter subitem 2 paragraph text here.", "SubitemParagraph"]
}, Open  ]],

Cell["Enter item 2 text here.", "Item"],

Cell["Enter item 2 paragraph text here.", "ItemParagraph"],

Cell["Enter item 3 text here.", "Item"],

Cell["Enter item 3 paragraph text here.", "ItemParagraph"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Enter Subsubsection Here", "Subsubsection"],

Cell["PlacedGraphics placeholder \[DownArrow]", "Text"],

Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\
eJztWLtKA0EUvdnNCwULH30aC7XzFwStbPwAYQlCLEQxYit2FhZpJIVWamMh
iCCIjTYKNkIKGxEbsRDBQkTs1jl35q6768QQJSA4xc7O3HPfc2Y2ZDJYqszM
BUuz5aA0sRgsVGbL1dL4/KIS+RkiquEpEeahmpqhRvWxZTXx+R2GIT/rGDMO
cpCDHOQgB/1zaJBHnzamPmW5lOz65JI82qmsUS/PD1c36Xh9l7H31zc6re/T
1vQK7VVrdN+4ieQX20cshx/oQwZMrX2eZBNhlbrH+gW2FLGoSCSt001XB2cJ
7JtoNPKTBhQiGdw+3T3wXMJ6vOrhlCDDCjrQRWjIgEkamEvTLA0w6h7r9ye8
igoKhDzejJR5s2i/rB8bjujY3JfH51j9xahesUUPsAYZ1Ns37oUXME3XDmYp
Vc9EhTVE8dqNioma47lgJhLZQv2ycLgF49FeNOCzcD9KSa/0KPzTehizLJN0
oirbKl5aLKayBQbL2gMNtyjdN3sBM1AFG+el6o+faCE363jMsHwCQFqGt9pP
d0RLSUvONUzgO05dTf2clfo6XMFKfdHXMfNfYqI2VcNQKybkE0yQzJR1uilI
HicCa2zV7XkjOg1yEQkG8sSS1ndX8cv9BDUgxp1stFxpePh21F1N34hiCS/2
2zLfLGLLriTPR5q8xtuARbXLIstaZKPt74v5BnkWb30dzESXnWPiytdA2tmh
DvyRHwkOcpCDHOQgB3UCkv9qMx+BuT88\
\>"], "Graphics",
  Evaluatable->False,
  GeneratedCell->False,
  CellAutoOverwrite->False,
  ImageSize->{144, 144},
  ImageMargins->{{0, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}}]], "PlacedGraphics"],

Cell[TextData[{
 StyleBox["Figure ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["NumberedFigure"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Figure caption. (Do not use this for results of Mathematica commands. For \
those, use input and output preceded by a sentence or paragraph of \
explanation in ordinary text.)"
}], "NumberedFigureCaption",
 CellChangeTimes->{3.532275572862757*^9}],

Cell[BoxData[Cell[GraphicsData["CompressedBitmap", "\<\
eJztWLtKA0EUvdnNCwULH30aC7XzFwStbPwAYQlCLEQxYit2FhZpJIVWamMh
iCCIjTYKNkIKGxEbsRDBQkTs1jl35q6768QQJSA4xc7O3HPfc2Y2ZDJYqszM
BUuz5aA0sRgsVGbL1dL4/KIS+RkiquEpEeahmpqhRvWxZTXx+R2GIT/rGDMO
cpCDHOQgB/1zaJBHnzamPmW5lOz65JI82qmsUS/PD1c36Xh9l7H31zc6re/T
1vQK7VVrdN+4ieQX20cshx/oQwZMrX2eZBNhlbrH+gW2FLGoSCSt001XB2cJ
7JtoNPKTBhQiGdw+3T3wXMJ6vOrhlCDDCjrQRWjIgEkamEvTLA0w6h7r9ye8
igoKhDzejJR5s2i/rB8bjujY3JfH51j9xahesUUPsAYZ1Ns37oUXME3XDmYp
Vc9EhTVE8dqNioma47lgJhLZQv2ycLgF49FeNOCzcD9KSa/0KPzTehizLJN0
oirbKl5aLKayBQbL2gMNtyjdN3sBM1AFG+el6o+faCE363jMsHwCQFqGt9pP
d0RLSUvONUzgO05dTf2clfo6XMFKfdHXMfNfYqI2VcNQKybkE0yQzJR1uilI
HicCa2zV7XkjOg1yEQkG8sSS1ndX8cv9BDUgxp1stFxpePh21F1N34hiCS/2
2zLfLGLLriTPR5q8xtuARbXLIstaZKPt74v5BnkWb30dzESXnWPiytdA2tmh
DvyRHwkOcpCDHOQgB3UCkv9qMx+BuT88\
\>"], "PlacedGraphics",
  Evaluatable->False,
  GeneratedCell->False,
  CellAutoOverwrite->False,
  ImageSize->{144, 144},
  ImageMargins->{{0, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}}]], "PlacedGraphics"],

Cell[TextData[{
 StyleBox["Figure ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["NumberedFigure"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Figure caption."
}], "NumberedFigureCaption"],

Cell[CellGroupData[{

Cell["Enter Subsubsubsection Title Here", "Subsubsubsection"],

Cell["Enter text here. ", "Text"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Enter Section Title Here", "Section"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]}
    },
    AutoDelete->False,
    BaseStyle->{TextJustification -> 0, ParagraphIndent -> 0},
    GridBoxAlignment->{"Columns" -> {Left, Center}, "Rows" -> {Bottom, Top}},
    GridBoxDividers->{
     "Columns" -> {False}, 
      "RowsIndexed" -> {
       1 -> AbsoluteThickness[2.], 2 -> AbsoluteThickness[0.5], -1 -> 
        AbsoluteThickness[0.5]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{10.}}, "Rows" -> {1, 0.5}}],
   "Grid"], TraditionalForm]], "Table"],

Cell[TextData[{
 StyleBox["Table ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["NumberedTable"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Enter table title here. (Again, do not use this where the table comes from \
a Mathematica command; use input and output.)"
}], "NumberedTableCaption",
 CellTags->"Table1"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]}
    },
    AutoDelete->False,
    BaseStyle->{TextJustification -> 0, ParagraphIndent -> 0},
    GridBoxAlignment->{"Columns" -> {Left, Center}, "Rows" -> {Bottom, Top}},
    GridBoxDividers->{
     "Columns" -> {False}, 
      "RowsIndexed" -> {
       1 -> AbsoluteThickness[2.], 2 -> AbsoluteThickness[0.5], -1 -> 
        AbsoluteThickness[0.5]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{6.666666666666666}}, "Rows" -> {1, 0.5}}],
   "Grid"], TraditionalForm]], "Table"],

Cell[TextData[{
 StyleBox["Table ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["NumberedTable"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Enter table title here."
}], "NumberedTableCaption",
 CellTags->"Table1"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]}
    },
    AutoDelete->False,
    BaseStyle->{TextJustification -> 0, ParagraphIndent -> 0},
    GridBoxAlignment->{"Columns" -> {Left, Center}, "Rows" -> {Bottom, Top}},
    GridBoxDividers->{
     "Columns" -> {False}, 
      "RowsIndexed" -> {
       1 -> AbsoluteThickness[2.], 2 -> AbsoluteThickness[0.5], -1 -> 
        AbsoluteThickness[0.5]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{5.}}, "Rows" -> {1, 0.5}}],
   "Grid"], TraditionalForm]], "Table"],

Cell[TextData[{
 StyleBox["Table ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["NumberedTable"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Enter table title here."
}], "NumberedTableCaption",
 CellTags->"Table1"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]], 
      InterpretationBox[Cell["Enter column head here",
        Editable->True,
        FontSlant->Italic],
       TextCell["Enter column head here", Italic, Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]},
     {
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]], 
      InterpretationBox[Cell["Enter data here",
        Editable->True],
       TextCell["Enter data here", Editable -> True]]}
    },
    AutoDelete->False,
    BaseStyle->{TextJustification -> 0, ParagraphIndent -> 0},
    GridBoxAlignment->{"Columns" -> {Left, Center}, "Rows" -> {Bottom, Top}},
    GridBoxDividers->{
     "Columns" -> {False}, 
      "RowsIndexed" -> {
       1 -> AbsoluteThickness[2.], 2 -> AbsoluteThickness[0.5], -1 -> 
        AbsoluteThickness[0.5]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{4.}}, "Rows" -> {1, 0.5}}],
   "Grid"], TraditionalForm]], "Table"],

Cell[TextData[{
 StyleBox["Table ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["NumberedTable"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Enter table title here."
}], "NumberedTableCaption",
 CellTags->"Table1"],

Cell[CellGroupData[{

Cell["Enter Subsection Title Here", "Subsection"],

Cell[TextData[StyleBox["Theorem 1",
 FontWeight->"Bold"]], "Text"],

Cell[CellGroupData[{

Cell["Enter theorem text here.", "Theorem"],

Cell["Enter continued theorem text here.", "TheoremContinuation"]
}, Open  ]],

Cell[TextData[StyleBox["Corollary 1",
 FontWeight->"Bold"]], "Text"],

Cell[CellGroupData[{

Cell["Enter corollary text here.", "Corollary"],

Cell["Enter continued corollary text here.", "CorollaryContinuation",
 CellID->439416223]
}, Open  ]],

Cell[TextData[{
 "And similarly for ",
 StyleBox["Definition",
  FontWeight->"Bold"],
 ", ",
 StyleBox["Proposition",
  FontWeight->"Bold"],
 ", ",
 StyleBox["Conjecture",
  FontWeight->"Bold"],
 ", ",
 StyleBox["Axiom",
  FontWeight->"Bold"],
 ", ",
 StyleBox["Rule",
  FontWeight->"Bold"],
 ". "
}], "Text",
 TaggingRules->{"AnnotationsDeleted" -> True},
 CellID->521592909],

Cell[TextData[StyleBox["Example 1",
 FontSlant->"Italic"]], "Text"],

Cell[CellGroupData[{

Cell["Enter example text here.", "Example"],

Cell["Enter continued example text here.", "ExampleContinuation"]
}, Open  ]],

Cell[TextData[{
 "And similarly for ",
 StyleBox["Remark",
  FontSlant->"Italic"],
 ", ",
 StyleBox["Problem",
  FontSlant->"Italic"],
 ", ",
 StyleBox["Solution",
  FontSlant->"Italic"],
 ". "
}], "Text"],

Cell[TextData[StyleBox["Proof",
 FontWeight->"Bold"]], "Text",
 CellID->1458400839],

Cell["Enter proof text here.", "Text",
 CellID->2010620548],

Cell["\[EmptySquare]", "QED"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Summary", "Section",
 CellTags->"visualizefacetsurface"],

Cell["Enter summary text here.", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Conclusion", "Section"],

Cell["Enter conclusion text here.", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Appendix", "Section"],

Cell["Enter appendix text here.", "Text"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{"x", " ", "d", "\[InvisibleSpace]", "x"}]}], "+", 
   SqrtBox["z"]}], TraditionalForm]], "DisplayFormula"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Acknowledgments", "Section"],

Cell["Enter acknowledgment text here.", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["References", "Section",
 CellID->496069258],

Cell[TextData[{
 "A. Authorlast, \[OpenCurlyDoubleQuote]Article \
Title,\[CloseCurlyDoubleQuote] ",
 StyleBox["Journal Title",
  FontSlant->"Italic"],
 ", ",
 StyleBox["Volume",
  FontWeight->"Bold"],
 "(Issue), 2005 pp. #\[Dash]#. ",
 "Linked URL or doi number if available, without http:// preceding."
}], "Reference"],

Cell[TextData[{
 "A. Authorlast1 and B. Authorlast2, \[OpenCurlyDoubleQuote]Article Title,\
\[CloseCurlyDoubleQuote] ",
 StyleBox["Journal Title",
  FontSlant->"Italic"],
 ", ",
 StyleBox["Volume",
  FontWeight->"Bold"],
 "(Issue), 2005 pp. #\[Dash]#. ",
 "Linked URL or doi number if available, without http:// preceding."
}], "Reference"],

Cell[TextData[{
 "A. Authorlast1, B. Authorlast2, and C. Authorlast3, \
\[OpenCurlyDoubleQuote]Article Title,\[CloseCurlyDoubleQuote] ",
 StyleBox["Journal Title",
  FontSlant->"Italic"],
 ", ",
 StyleBox["Volume",
  FontWeight->"Bold"],
 "(Issue), 2005 pp. #\[Dash]#. ",
 "Linked URL or doi number if available, without http:// preceding."
}], "Reference"],

Cell[TextData[{
 "A. Authorlast, ",
 StyleBox["Book Title",
  FontSlant->"Italic"],
 ", ",
 StyleBox["n",
  FontSlant->"Italic"],
 "th ed., Publisher Location: Publisher Name, 2005."
}], "Reference"],

Cell[TextData[{
 "A. Authorlast1 and B. Authorlast2, ",
 StyleBox["Book Title",
  FontSlant->"Italic"],
 ", ",
 StyleBox["n",
  FontSlant->"Italic"],
 "th ed., Publisher Location: Publisher Name, 2005."
}], "Reference"],

Cell[TextData[{
 "A. Authorlast1, B. Authorlast2, and C. Authorlast3, ",
 StyleBox["Book Title",
  FontSlant->"Italic"],
 ", ",
 StyleBox["n",
  FontSlant->"Italic"],
 "th ed., Publisher Location: Publisher Name, 2005."
}], "Reference"],

Cell[TextData[{
 "A. Authorlast, \[OpenCurlyDoubleQuote]Paper Title,\[CloseCurlyDoubleQuote] \
in ",
 StyleBox["Conference Proceedings Title (Conference Acronym and Year)",
  FontSlant->"Italic"],
 ", Conference Location (A. Authorlast, ed.), Publisher Location: Publisher \
Name, Publication Date pp. #\[Dash]#. ",
 "Linked URL or doi number if available, without http:// preceding."
}], "Reference"],

Cell[TextData[{
 "A. Authorlast1, B. Authorlast2, and C. Authorlast3, \
\[OpenCurlyDoubleQuote]Paper Title,\[CloseCurlyDoubleQuote] in ",
 StyleBox["Conference Proceedings Title (Conference Acronym and Year)",
  FontSlant->"Italic"],
 ", Conference Location (A. Authorlast, ed.), Publisher Location: Publisher \
Name, Publication Date pp. #\[Dash]#. ",
 "Linked URL or doi number if available, without http:// preceding."
}], "Reference"],

Cell[TextData[{
 "A. Authorlast1, B. Authorlast2, and C. Authorlast3, \
\[OpenCurlyDoubleQuote]Paper Title,\[CloseCurlyDoubleQuote] in ",
 StyleBox["Conference Proceedings Title (Conference Acronym and Year)",
  FontSlant->"Italic"],
 ", Conference Location (A. Authorlast, ed.), Publisher Location: Publisher \
Name, Publication Date pp. #\[Dash]#. ",
 "Linked URL or doi number if available, without http:// preceding."
}], "Reference"],

Cell["\<\
A. Authorlast. \[OpenCurlyDoubleQuote]Website Title.\[CloseCurlyDoubleQuote] \
(Last updated date or date visited in three-character Month Day, Year format) \
Linked URL or doi number if available, without http:// preceding.\
\>", "Reference"],

Cell[TextData[{
 "E. W. Weisstein. \[OpenCurlyDoubleQuote]Entry Title\[CloseCurlyDoubleQuote] \
from Wolfram ",
 StyleBox["MathWorld",
  FontSlant->"Italic"],
 "\[LongDash]A Wolfram Web Resource. Linked URL, without http:// preceding. \
[Wolfram resource format]"
}], "Reference"],

Cell[TextData[{
 StyleBox["Software Title",
  FontSlant->"Italic"],
 ". Version number, Publisher Location: Publisher Name, Publication Date."
}], "Reference"]
}, Open  ]],

Cell[CellGroupData[{

Cell["About the Authors", "SectionAboutAuthor"],

Cell["Enter author biography here (60-word limit).", "TextAboutAuthor"],

Cell["Enter additional author biography here (60-word limit).", \
"TextAboutAuthor"],

Cell[TextData[{
 StyleBox["Enter author name here", "AboutAuthorB"],
 "\n",
 StyleBox["Enter author address here:\nWolfram Research, Inc.\n100 Trade \
Center Drive\nChampaign, IL 61820-7237", "AboutAuthorI"],
 "\n",
 StyleBox[ButtonBox["submissions@mathematica-journal.com",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["mailto:submissions@mathematica-journal.com"], None},
  ButtonNote->"submissions@mathematica-journal.com"], "AboutAuthorI"]
}], "TextAboutAuthor",
 CellID->1328340278],

Cell[TextData[{
 StyleBox["Enter additional author name here", "AboutAuthorB"],
 "\n",
 StyleBox["Enter additional author address here:", "AboutAuthorI"],
 "\n",
 StyleBox["Wolfram Research, Inc.\n100 Trade Center Drive\nChampaign, IL \
61820-7237", "AboutAuthorI"],
 "\n",
 StyleBox[ButtonBox["submissions@mathematica-journal.com",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["mailto:submissions@mathematica-journal.com"], None},
  ButtonNote->"submissions@mathematica-journal.com"], "AboutAuthorI"]
}], "TextAboutAuthor",
 CellID->175058134]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->None,
TaggingRules->{
 "DAHPreferences" -> {
   "DefaultUSERCVSDIR" -> 
    "C:\\Users\\joycet\\cvs_checkouts_DAHDefault\\Pubs\\Internal\\joycet", 
    "DAHEmailOptions" -> {
     "From" -> "joycet@wolfram.com", "To" -> "q-docs@wolfram.com", "Subject" -> 
      "bonk detected: ", "Server" -> "mail.wolfram.com"}, 
    "CVSBranchTags" -> {"B8_0"}}, "AnnotationsDeleted" -> False},
CreateCellID->True,
SpellingDictionaries->{"CorrectWords"->{
 "subitemnumbered", "subitem", "Subsubsection", "Subsubsubsection", 
  "Authorlast", "doi", "Champaign"}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (August 1, \
2016)",
StyleDefinitions->Notebook[{
   Cell[
    CellGroupData[{
      Cell[
       TextData[{"Style Definitions for \n", 
         StyleBox["The Mathematica Journal", FontSlant -> "Italic"]}], 
       "Subtitle", CellMargins -> {{0, Inherited}, {Inherited, 0}}, 
       CellFrameMargins -> {{20, 4}, {8, 20}}, FontSize -> 36, FontWeight -> 
       "Bold", FontColor -> GrayLevel[1], Background -> GrayLevel[0]], 
      Cell[
       StyleData[StyleDefinitions -> "Default_8.0.nb"]], 
      Cell[
       CellGroupData[{
         Cell[
         "Styles Brought in from Core.nb, adjusted for TMJ", "Section", 
          CellFrame -> False, CellDingbat -> None, ShowCellBracket -> True, 
          CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Code"], PageWidth -> DirectedInfinity[1], 
             CellMargins -> {{57, 21}, {10, 10}}, Evaluatable -> True, 
             CellGroupingRules -> "InputGrouping", TextClipboardType -> 
             "Package", StripStyleOnPaste -> True, PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, InitializationCell -> True, 
             DefaultFormatType -> DefaultInputFormatType, AutoIndent -> False,
              ShowAutoStyles -> True, "TwoByteSyntaxCharacterAutoReplacement" -> 
             True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, 
             AutoItalicWords -> {}, LanguageCategory -> "Mathematica", 
             AutoSpacing -> False, ShowStringCharacters -> True, NumberMarks -> 
             True, DigitBlock -> DirectedInfinity[1], ZeroWidthTimes -> True, 
             LineBreakWithin -> False, LineIndent -> 0, CounterIncrements -> 
             "Code", MenuSortingValue -> 1375, MenuCommandKey -> "8", 
             FontSize -> 11, FontWeight -> "Bold", Background -> 
             RGBColor[0.9, 0.9, 1]], 
            Cell[
             StyleData["Code", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Code", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Code", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell["Brought in from Core.nb, removed FontSize", "Text"], 
         Cell[
          StyleData["MSG"], StyleMenuListing -> None, FontFamily -> 
          "Helvetica"], 
         Cell["Brought in from Core.nb, not modified", "Text"], 
         Cell[
          StyleData["PrintUsage"], Editable -> False, PageWidth -> 
          WindowWidth, CellFrame -> {{0, 0}, {0, 3}}, CellFrameColor -> 
          RGBColor[1, 0.6000000000000001, 0], FontFamily -> "Helvetica", 
          FontSize -> 10, Background -> RGBColor[1, 0.993332, 0.899718]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Style Environment Names", "Section", CellFrame -> False, 
          CellDingbat -> None, ShowCellBracket -> True, 
          CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
         "Corrected style environment names to use the MenuPosition values \
from Core.nb. ", "Text"], 
         Cell[
          StyleData[All, "Working"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.115343, 0.350561, 0.362966]}, ShowCellLabel -> 
          True, CellFrameLabelMargins -> 6, ScriptMinSize -> 9, 
          MenuSortingValue -> 1100], 
         Cell[
          StyleData[All, "Presentation"], ScreenStyleEnvironment -> 
          "Presentation", MenuSortingValue -> 1200, Magnification -> 1.25], 
         Cell[
          StyleData[All, "Printout"], PageWidth -> PaperWidth, 
          ShowCellBracket -> True, CellLabelAutoDelete -> False, Hyphenation -> 
          True, HyphenationOptions -> {"HyphenationMinLengths" -> {3, 4}}, 
          ScriptMinSize -> 5, MenuSortingValue -> 1500, 
          PrivateFontOptions -> {"FontType" -> "Outline"}, Magnification -> 
          0.9], 
         Cell["Disabled Menu appearance for SlideShow and Condensed", "Text"], 
         Cell[
          StyleData[All, "SlideShow"], PageWidth -> WindowWidth, DockedCells -> 
          FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], 
          ScrollingOptions -> {
           "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, 
          ShowCellBracket -> False, ShowAutoStyles -> False, ScriptMinSize -> 
          9, MenuSortingValue -> 1300, StyleMenuListing -> None], 
         Cell[
          StyleData[All, "Condensed"], PageWidth -> WindowWidth, 
          CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, ScriptMinSize -> 8, MenuSortingValue -> 
          1400, StyleMenuListing -> None]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Notebook Options", "Section", CellFrame -> False, CellDingbat -> 
          None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
         "The options defined for the style below will be used at the \
Notebook level.", "Text"], 
         Cell[
          StyleData["Notebook"], PageHeaders -> {{
             Cell[
              TextData[{
                CounterBox["Page"]}], "PageNumber"], Inherited, 
             Cell["Author(s)", "Header"]}, {
             Cell["Article Title", "Header"], Inherited, 
             Cell[
              TextData[{
                CounterBox["Page"]}], "PageNumber"]}}, PageFooters -> {{
             Cell[
              TextData[{"The Mathematica Journal ", 
                StyleBox["volume", FontWeight -> "Bold"], 
                ":issue \[Copyright] year Wolfram Media, Inc."}], "Footer"], 
             Inherited, 
             Cell[
              TextData[{
                ValueBox["FileName"], " ", 
                ValueBox["Date"]}], "Footer"]}, {
             Cell[
              TextData[{
                ValueBox["FileName"], " ", 
                ValueBox["Date"]}], "Footer"], Inherited, 
             Cell[
              TextData[{"The Mathematica Journal ", 
                StyleBox["volume", FontWeight -> "Bold"], 
                ":issue \[Copyright] year Wolfram Media, Inc."}], "Footer"]}},
           PrintingOptions -> {
           "FacingPages" -> True, "FirstPageHeader" -> False, 
            "PageFooterMargins" -> {36, 36}, "PageHeaderMargins" -> {42, 42}, 
            "PrintRegistrationMarks" -> False, 
            "PrintingMargins" -> {{90, 90}, {90, 90}}}, CellFrameLabelMargins -> 
          6, HyphenationOptions -> {
           "HyphenationCharacter" -> "-", "HyphenationFreeZone" -> 12, 
            "HyphenationMinLengths" -> {2, 3}}, StyleMenuListing -> None]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Styles for Headings", "Section", CellFrame -> False, CellDingbat -> 
          None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Title"], ShowCellBracket -> False, ShowSelection -> 
             True, CellMargins -> {{21, 21}, {0, 15}}, 
             CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> 
             False, Hyphenation -> False, LineSpacing -> {1, 1}, 
             CounterIncrements -> "Title", 
             CounterAssignments -> {{"Subtitle", 0}, {"Section", 0}, {
               "Subsection", 0}, {"Subsubsection", 0}, {"List", 0}, {
               "NumberedFigure", 0}, {"NumberedTable", 0}, {
               "NumberedProgram", 0}, {"Equation", 0}, {"Text", 0}, {
               "SmallText", 0}, {"Reference", 0}}, MenuSortingValue -> 1100, 
             FontFamily -> "Times", FontSize -> 36, FontWeight -> "Plain", 
             FontSlant -> "Italic"], 
            Cell[
             StyleData["Title", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Title", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Title", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subtitle"], ShowCellBracket -> False, ShowSelection -> 
             True, CellMargins -> {{21, 21}, {5, 2}}, 
             CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> 
             False, Hyphenation -> False, LineSpacing -> {1, 1}, 
             CounterIncrements -> "Subtitle", FontFamily -> "Times", FontSize -> 
             24, FontSlant -> "Italic"], 
            Cell[
             StyleData["Subtitle", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Subtitle", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Subtitle", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          StyleData["Subsubtitle"], MenuSortingValue -> "None"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Section"], CellFrame -> False, CellDingbat -> 
             "\[FilledSquare]", CellMargins -> {{21, 21}, {10, 30}}, 
             Evaluatable -> False, 
             CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> 
             False, Hyphenation -> False, CounterIncrements -> "Section", 
             CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
               "ItemNumbered", 0}}, AspectRatioFixed -> True, FontFamily -> 
             "Helvetica", FontSize -> 16, FontWeight -> "Bold", FontColor -> 
             RGBColor[
              0.7013504234378576, 0.3030136568245975, 0.12634470130464637`]], 
            
            Cell[
             StyleData["Section", "Presentation", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Section", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Section", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subsection"], CellDingbat -> "\[EmptySquare]", 
             CellMargins -> {{21, 21}, {10, 26}}, 
             CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> 
             False, Hyphenation -> False, LineSpacing -> {1, 1}, 
             CounterIncrements -> "Subsection", 
             CounterAssignments -> {{"Subsubsection", 0}, {
               "ItemNumbered", 0}}, FontFamily -> "Helvetica", FontSize -> 14,
              FontWeight -> "Bold", FontColor -> GrayLevel[0]], 
            Cell[
             StyleData[
             "Subsection", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Subsection", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Subsection", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subsubsection"], CellDingbat -> 
             "\[FilledSmallSquare]", CellMargins -> {{21, 21}, {6, 20}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
             False, Hyphenation -> False, LineSpacing -> {1, 1}, 
             CounterIncrements -> "Subsubsection", 
             CounterAssignments -> {{"ItemNumbered", 0}}, FontFamily -> 
             "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontSlant -> 
             "Oblique"], 
            Cell[
             StyleData[
             "Subsubsection", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "Subsubsection", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "Subsubsection", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subsubsubsection"], CellDingbat -> None, 
             CellMargins -> {{21, 21}, {6, 20}}, 
             CellGroupingRules -> {"SectionGrouping", 70}, PageBreakBelow -> 
             False, Hyphenation -> False, LineSpacing -> {1, 1}, 
             CounterIncrements -> "Subsubsubsection", 
             CounterAssignments -> {{"ItemNumbered", 0}}, StyleMenuListing -> 
             None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> 
             "Bold"], 
            Cell[
             StyleData[
             "Subsubsubsection", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "Subsubsubsection", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "Subsubsubsection", "Printout", StyleDefinitions -> None]]}, 
           Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Styles for Body Text", "Section", CellFrame -> False, CellDingbat -> 
          None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Text"], CellMargins -> {{21, 21}, {4, 4}}, 
             CounterIncrements -> "Text", 
             CounterAssignments -> {{"ItemNumbered", 0}}, MenuSortingValue -> 
             1370, MenuCommandKey -> "7", FontFamily -> "Times", FontSize -> 
             12], 
            Cell[
             StyleData["Text", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Text", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Text", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Quote"], 
             CellMargins -> {{45, 45}, {Inherited, Inherited}}, 
             MenuSortingValue -> 1520, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData["Quote", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Quote", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Quote", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Styles for Input, Output, and Graphics", "Section", CellFrame -> 
          False, CellDingbat -> None, ShowCellBracket -> True, 
          CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Input"], CellMargins -> {{57, 21}, {10, 10}}, 
             Evaluatable -> True, CellGroupingRules -> "InputGrouping", 
             CellHorizontalScrolling -> True, PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, 
             CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}}, 
             CellFrameColor -> GrayLevel[0.869993], DefaultFormatType -> 
             DefaultInputFormatType, LineSpacing -> {1, 1}, 
             AutoItalicWords -> {}, ShowStringCharacters -> True, NumberMarks -> 
             True, CounterIncrements -> "Input", MenuSortingValue -> 1400, 
             FontSize -> 11, FontWeight -> "Bold", Background -> None], 
            Cell[
             StyleData["Input", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Input", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Input", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Output"], CellMargins -> {{57, 21}, {13, 5}}, 
             CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping",
              CellHorizontalScrolling -> True, PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, GeneratedCell -> True, 
             CellAutoOverwrite -> True, 
             CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}}, 
             CellFrameColor -> GrayLevel[0.869993], DefaultFormatType -> 
             DefaultOutputFormatType, LineSpacing -> {1, 1}, 
             AutoItalicWords -> {}, CounterIncrements -> "Output", 
             StyleMenuListing -> None, FontSize -> 11, Background -> None], 
            Cell[
             StyleData["Output", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Output", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Output", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Message"], CellFrame -> {{0.25, 0.25}, {0, 0}}, 
             CellDingbat -> "\[WarningSign]", 
             CellMargins -> {{57, 21}, {13, 0}}, CellGroupingRules -> 
             "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> 
             False, GeneratedCell -> True, CellAutoOverwrite -> True, 
             ShowCellLabel -> False, 
             CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}}, 
             CellFrameColor -> GrayLevel[0.869993], CellFrameLabelMargins -> 
             0, DefaultFormatType -> DefaultOutputFormatType, 
             LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing -> 
             None, FontFamily -> "Helvetica", FontSize -> 10, FontColor -> 
             RGBColor[0, 0, 1], Background -> GrayLevel[0.949996]], 
            Cell[
             StyleData["Message", "Presentation", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Message", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Message", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Print"], CellFrame -> True, 
             CellMargins -> {{57, 21}, {13, 0}}, CellGroupingRules -> 
             "OutputGrouping", CellHorizontalScrolling -> True, 
             PageBreakWithin -> False, GroupPageBreakWithin -> False, 
             GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> 
             False, CellLabelMargins -> {{23, Inherited}, {
               Inherited, Inherited}}, CellFrameColor -> GrayLevel[0], 
             DefaultFormatType -> DefaultOutputFormatType, 
             LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing -> 
             None, FontFamily -> "Helvetica", FontSize -> 10], 
            Cell[
             StyleData["Print", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Print", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Print", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          
          TextData[{
           "PlacedGraphics cell style to be used when importing a graphic \
from another  application or when presenting a graphic not associated with ", 
            
            StyleBox["Mathematica", FontSlant -> "Italic"], 
            " input. May be followed by NumberedFigureCaption."}], "Text"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["PlacedGraphics"], CellFrame -> False, 
             CellMargins -> {{21, 21}, {8, 10}}, CellGroupingRules -> 
             "GraphicsGrouping", CellHorizontalScrolling -> True, 
             ShowCellLabel -> False, TextAlignment -> Left, 
             LineSpacing -> {1, 1}, 
             InsetBoxOptions -> {
              BaseStyle -> {CellFrame -> None, Background -> None}}], 
            Cell[
             StyleData[
             "PlacedGraphics", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "PlacedGraphics", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "PlacedGraphics", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["CellLabel"], 
             CellMargins -> {{5, Inherited}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, StyleMenuListing -> None, FontFamily -> 
             "Helvetica", FontSize -> 8, FontSlant -> "Oblique", FontColor -> 
             RGBColor[0.115343, 0.350561, 0.362966]], 
            Cell[
             StyleData[
             "CellLabel", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["CellLabel", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["CellLabel", "Printout", StyleDefinitions -> None]]}, 
           Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Styles for Automatic Numbering and Lists", "Section", CellFrame -> 
          False, CellDingbat -> None, ShowCellBracket -> True, 
          CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DisplayFormulaNumbered"], 
             CellMargins -> {{39, 21}, {4, 4}}, StripStyleOnPaste -> True, 
             CellFrameLabels -> {{None, 
                Cell[
                 TextData[{"(", 
                   CounterBox["DisplayFormulaNumbered"], ")"}], 
                 CellSize -> {30, Inherited}, TextAlignment -> Right]}, {
               None, None}}, DefaultFormatType -> TraditionalForm, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, 
             LineSpacing -> {1, 1}, LanguageCategory -> "Formula", 
             ScriptLevel -> 0, SingleLetterItalics -> True, CounterIncrements -> 
             "DisplayFormulaNumbered", MenuSortingValue -> 1700, FontFamily -> 
             "Times", 
             UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
            Cell[
             StyleData[
             "DisplayFormulaNumbered", "Presentation", StyleDefinitions -> 
              None]], 
            Cell[
             StyleData[
             "DisplayFormulaNumbered", "SlideShow", StyleDefinitions -> 
              None]], 
            Cell[
             StyleData[
             "DisplayFormulaNumbered", "Printout", StyleDefinitions -> 
              None]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, 
             StripStyleOnPaste -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 1, SingleLetterItalics -> True, 
             MenuSortingValue -> None], 
            Cell[
             StyleData[
             "InlineFormula", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "InlineFormula", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "InlineFormula", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedFigureCaption"], CellDingbat -> 
             "\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}}, 
             PageBreakAbove -> False, TextAlignment -> Left, 
             LineSpacing -> {1, 1}, CounterIncrements -> "NumberedFigure", 
             MenuSortingValue -> 1711, FormatTypeAutoConvert -> False, 
             FontFamily -> "Helvetica", FontSize -> 10], 
            Cell[
             StyleData[
             "NumberedFigureCaption", "Presentation", StyleDefinitions -> 
              None]], 
            Cell[
             StyleData[
             "NumberedFigureCaption", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "NumberedFigureCaption", "Printout", StyleDefinitions -> None]]},
            Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedTableCaption"], CellDingbat -> 
             "\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}}, 
             PageBreakAbove -> False, LineSpacing -> {1, 1}, 
             CounterIncrements -> "NumberedTable", MenuSortingValue -> 1712, 
             FontFamily -> "Helvetica", FontSize -> 10], 
            Cell[
             StyleData[
             "NumberedTableCaption", "Presentation", StyleDefinitions -> 
              None]], 
            Cell[
             StyleData[
             "NumberedTableCaption", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData[
             "NumberedTableCaption", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedProgramCaption"], CellDingbat -> 
             "\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}}, 
             PageBreakAbove -> False, LineSpacing -> {1, 1}, 
             CounterIncrements -> "NumberedProgram", MenuSortingValue -> 1713,
              FormatTypeAutoConvert -> False, FontFamily -> "Helvetica", 
             FontSize -> 10], 
            Cell[
             StyleData[
             "NumberedProgramCaption", "Presentation", StyleDefinitions -> 
              None]], 
            Cell[
             StyleData[
             "NumberedProgramCaption", "SlideShow", StyleDefinitions -> 
              None]], 
            Cell[
             StyleData[
             "NumberedProgramCaption", "Printout", StyleDefinitions -> 
              None]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Caption"], CellDingbat -> "\[FilledUpTriangle]", 
             CellMargins -> {{21, 21}, {Inherited, 5}}, PageBreakAbove -> 
             False, LineSpacing -> {1, 1}, FontFamily -> "Helvetica", 
             FontSize -> 10], 
            Cell[
             StyleData["Caption", "Presentation", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Caption", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Caption", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Item"], CellDingbat -> "\[FilledSmallCircle]", 
             CellMargins -> {{58, 21}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, 
             CounterAssignments -> {{"SubitemNumbered", 0}}, MenuSortingValue -> 
             1775, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData["Item", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Item", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Item", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subitem"], CellDingbat -> "\[FilledSmallCircle]", 
             CellMargins -> {{74, 21}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, MenuSortingValue -> 1776, FontFamily -> 
             "Times", FontSize -> 12], 
            Cell[
             StyleData["Subitem", "Presentation", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Subitem", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Subitem", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["ItemNumbered"], CellDingbat -> Cell[
               TextData[{
                 CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold", 
               CellSize -> {20, Inherited}, TextAlignment -> Right], 
             CellMargins -> {{58, 21}, {Inherited, Inherited}}, CellBaseline -> 
             Baseline, LineSpacing -> {1, 1}, TabSpacings -> {4.}, 
             CounterAssignments -> {{"SubitemNumbered", 0}}, MenuSortingValue -> 
             1777, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData[
             "ItemNumbered", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "ItemNumbered", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["ItemNumbered", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SubitemNumbered"], CellDingbat -> Cell[
               TextData[{
                 CounterBox["SubitemNumbered", CounterFunction :> (Part[
                    CharacterRange["a", "z"], #]& )], "."}], FontWeight -> 
               "Bold"], CellMargins -> {{74, 21}, {Inherited, Inherited}}, 
             CellBaseline -> Baseline, LineSpacing -> {1, 1}, 
             MenuSortingValue -> 1778, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData[
             "SubitemNumbered", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "SubitemNumbered", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "SubitemNumbered", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "ItemParagraph", StyleDefinitions -> StyleData["Item"]], 
             CellDingbat -> None, CounterIncrements -> "ItemParagraph", 
             MenuSortingValue -> 1779], 
            Cell[
             StyleData[
             "ItemParagraph", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "ItemParagraph", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["ItemParagraph", "Printout", StyleDefinitions -> None],
              TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]], 
             CellDingbat -> None, CounterIncrements -> "SubitemParagraph", 
             MenuSortingValue -> 1800], 
            Cell[
             StyleData[
             "SubitemParagraph", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "SubitemParagraph", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "SubitemParagraph", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Reference"], CellDingbat -> Cell[
               TextData[{"[", 
                 CounterBox["Reference"], "]"}], "SR", 
               CellSize -> {25, Inherited}, TextAlignment -> Right], 
             CellMargins -> {{47, 21}, {Inherited, Inherited}}, 
             CellFrameLabels -> {{None, None}, {None, None}}, 
             LineSpacing -> {1, 1}, CounterIncrements -> "Reference", 
             MenuSortingValue -> 1870, FontFamily -> "Helvetica", FontSize -> 
             10], 
            Cell[
             StyleData["Reference", "Presentation", StyleDefinitions -> None],
              CellMargins -> {{59, 21}, {Inherited, Inherited}}], 
            Cell[
             StyleData["Reference", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Reference", "Printout", StyleDefinitions -> None], 
             CellMargins -> {{45, 21}, {Inherited, Inherited}}, 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "DOIReference", StyleDefinitions -> StyleData["Reference"]], 
             CellDingbat -> None, CellMargins -> {{21, 21}, {Inherited, 10}}, 
             CounterIncrements -> "DOIReference", FontSize -> 9], 
            Cell[
             StyleData["DOIReference", "Presentation"], 
             CellMargins -> {{21, 21}, {Inherited, 10}}], 
            Cell[
             StyleData["DOIReference", "Printout"], 
             CellMargins -> {{21, 21}, {Inherited, 10}}]}, Closed]], 
         Cell[
          StyleData[
          "DOIReference1", StyleDefinitions -> StyleData["DOIReference"]], 
          CellChangeTimes -> {{3.500647185533589*^9, 3.500647185556703*^9}}], 
         
         Cell[
          StyleData[
          "DOIReference10", StyleDefinitions -> StyleData["DOIReference"]], 
          CellChangeTimes -> {{3.500647185533589*^9, 
           3.5006471855594378`*^9}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Journal Element Styles", "Section", CellFrame -> False, CellDingbat -> 
          None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          StyleData["OnlineHeader"], ShowCellBracket -> False, ShowSelection -> 
          True, CellMargins -> {{0, 0}, {0, 0}}, 
          CellGroupingRules -> {"TitleGrouping", 30}, PageBreakBelow -> False,
           CellFrameMargins -> {{21, 21}, {2, 8}}, Hyphenation -> False, 
          LineSpacing -> {1, 1}, StyleMenuListing -> None, FontFamily -> 
          "Times", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Italic", FontColor -> 
          RGBColor[
           0.9864194705119402, 0.9585259784847792, 0.7428549629968719], 
          Background -> RGBColor[0, 0, 0]], 
         Cell[
         "ColumnTitle is a renaming of PreTitle.", "Text", 
          CellChangeTimes -> {{3.4810538075243597`*^9, 
           3.481053831482122*^9}}], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["ColumnTitle"], ShowCellBracket -> False, 
             CellMargins -> {{21, 21}, {14, 4}}, 
             CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> 
             False, CellFrameMargins -> {{55, 4}, {8, 20}}, Hyphenation -> 
             False, LineSpacing -> {1, 1}, StyleMenuListing -> None, 
             FontFamily -> "Helvetica", FontSize -> 13, FontWeight -> 
             "Regular"], 
            Cell[
             StyleData[
             "ColumnTitle", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["ColumnTitle", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["ColumnTitle", "Printout", StyleDefinitions -> None]]},
            Closed]], 
         Cell[
         "Author to be used after the Title cell with author name(s). Author \
name(s) may be preceded by \"Edited by \" for certain columns. Text in author \
cell to be used as the left page header.", "Text"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Author"], ShowCellBracket -> False, ShowSelection -> 
             True, CellMargins -> {{21, 21}, {4, 6}}, CellGroupingRules -> 
             "NormalGrouping", PageBreakBelow -> False, Hyphenation -> False, 
             LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 0}, 
             MenuSortingValue -> 1155, FontFamily -> "Helvetica", FontSize -> 
             14, FontWeight -> "Bold"], 
            Cell[
             StyleData["Author", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Author", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Author", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Abstract"], ShowCellBracket -> False, ShowSelection -> 
             True, CellMargins -> {{21, 83}, {4, 25}}, Hyphenation -> False, 
             LineSpacing -> {1, 3}, MenuSortingValue -> 1156, FontFamily -> 
             "Helvetica", FontSize -> 13, FontWeight -> "Regular", FontSlant -> 
             "Plain"], 
            Cell[
             StyleData["Abstract", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Abstract", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Abstract", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Question"], CellFrame -> {{0, 0}, {0, 2}}, 
             CellDingbat -> "Q:", CellMargins -> {{45, 45}, {8, 8}}, 
             CellFrameMargins -> {{0, 0}, {2, 4}}, LineSpacing -> {1, 1}, 
             MenuSortingValue -> 1820, FontFamily -> "Times", FontSize -> 14, 
             FontWeight -> "Bold", FontColor -> 
             RGBColor[0.115511, 0.321752, 0.580118]], 
            Cell[
             StyleData["Question", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Question", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Question", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Answer"], CellDingbat -> 
             Cell["A:", FontWeight -> "Bold"], 
             CellMargins -> {{45, 45}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, CounterIncrements -> "Text", 
             MenuSortingValue -> 1860, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData["Answer", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Answer", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Answer", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["TextAboutAuthor"], CellMargins -> {{21, 21}, {2, 5}}, 
             LineSpacing -> {1, 1}, CounterIncrements -> "Text", 
             MenuSortingValue -> 1880, FontSize -> 12], 
            Cell[
             StyleData[
             "TextAboutAuthor", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "TextAboutAuthor", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "TextAboutAuthor", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SectionAboutAuthor"], 
             CellMargins -> {{21, 21}, {10, 30}}, 
             CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> 
             False, CellFrameMargins -> 4, Hyphenation -> False, 
             LineSpacing -> {1, 1}, MenuSortingValue -> 1875, FontFamily -> 
             "Helvetica", FontSize -> 12, FontWeight -> "Bold"], 
            Cell[
             StyleData[
             "SectionAboutAuthor", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "SectionAboutAuthor", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "SectionAboutAuthor", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
         "Styles for algorithm listings, based on BulletedList, indent an \
additional 12 points for each level, dingbat also changes", "Text"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Algorithm1"], CellDingbat -> "\[FilledSmallCircle]", 
             CellMargins -> {{58, 21}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData[
             "Algorithm1", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Algorithm1", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Algorithm1", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Algorithm2"], CellDingbat -> "\[Dash]", 
             CellMargins -> {{74, 21}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData[
             "Algorithm2", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Algorithm2", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Algorithm2", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Algorithm3"], CellDingbat -> "\[Star]", 
             CellMargins -> {{86, 21}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData[
             "Algorithm3", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Algorithm3", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Algorithm3", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Algorithm4"], CellDingbat -> "\[CenterDot]", 
             CellMargins -> {{98, 21}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData[
             "Algorithm4", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Algorithm4", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Algorithm4", "Printout", StyleDefinitions -> None], 
             TextJustification -> 1.]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Enunciations", "Section", CellFrame -> False, CellDingbat -> None, 
          ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          CellGroupData[{
            Cell["Theorem", "Subsubsection", MenuSortingValue -> 1871], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Theorem"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Theorem", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, MenuSortingValue -> 1871, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "Theorem", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData["Theorem", "SlideShow", StyleDefinitions -> None]], 
               
               Cell[
                StyleData["Theorem", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["TheoremLabel"], StyleMenuListing -> None, 
                FontWeight -> "Bold", FontSlant -> "Plain"], 
               Cell[
                StyleData[
                "TheoremLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "TheoremLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "TheoremLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["TheoremContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", LineSpacing -> {1, 1}, CounterIncrements -> 
                "TheoremContinuation", MenuSortingValue -> 1872, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "TheoremContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "TheoremContinuation", "SlideShow", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "TheoremContinuation", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Example", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Example"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Example", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, MenuSortingValue -> 1873, FontSlant -> 
                "Plain"], 
               Cell[
                StyleData[
                "Example", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData["Example", "SlideShow", StyleDefinitions -> None]], 
               
               Cell[
                StyleData["Example", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ExampleLabel"], StyleMenuListing -> None, 
                FontWeight -> "Bold", FontSlant -> "Italic"], 
               Cell[
                StyleData[
                "ExampleLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "ExampleLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "ExampleLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ExampleContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", LineSpacing -> {1, 1}, CounterIncrements -> 
                "ExampleContinuation", MenuSortingValue -> 1874], 
               Cell[
                StyleData[
                "ExampleContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "ExampleContinuation", "SlideShow", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "ExampleContinuation", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Proof", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Proof"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, MenuSortingValue -> 1875, FontSlant -> 
                "Plain"], 
               Cell[
                StyleData["Proof", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData["Proof", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Proof", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ProofLabel"], StyleMenuListing -> None, FontWeight -> 
                "Bold", FontSlant -> "Italic"], 
               Cell[
                StyleData[
                "ProofLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "ProofLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "ProofLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ProofContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", LineSpacing -> {1, 1}, CounterIncrements -> 
                "ProofContinuation"], 
               Cell[
                StyleData[
                "ProofContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "ProofContinuation", "SlideShow", StyleDefinitions -> None]], 
               
               Cell[
                StyleData[
                "ProofContinuation", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["QED"], CellMargins -> {{21, 21}, {8, 0}}, 
                StyleMenuListing -> None, FontSize -> 14], 
               Cell[
                StyleData["QED", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData["QED", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["QED", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Corollary", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Corollary"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Corollary", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "Corollary", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "Corollary", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Corollary", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["CorollaryLabel"], StyleMenuListing -> None, 
                FontWeight -> "Bold", FontSlant -> "Plain"], 
               Cell[
                StyleData[
                "CorollaryLabel", "Presentation", StyleDefinitions -> None]], 
               
               Cell[
                StyleData[
                "CorollaryLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "CorollaryLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["CorollaryContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "CorollaryContinuation", StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "CorollaryContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "CorollaryContinuation", "SlideShow", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "CorollaryContinuation", "Printout", StyleDefinitions -> 
                 None], TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Lemma", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Lemma"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Lemma", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData["Lemma", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData["Lemma", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Lemma", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["LemmaLabel"], StyleMenuListing -> None, FontWeight -> 
                "Bold", FontSlant -> "Plain"], 
               Cell[
                StyleData[
                "LemmaLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "LemmaLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "LemmaLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["LemmaContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "LemmaContinuation", StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "LemmaContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "LemmaContinuation", "SlideShow", StyleDefinitions -> None]], 
               
               Cell[
                StyleData[
                "LemmaContinuation", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Definition", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Definition"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Definition", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "Definition", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "Definition", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Definition", "Printout", StyleDefinitions -> None],
                 TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["DefinitionLabel"], StyleMenuListing -> None, 
                FontWeight -> "Bold", FontSlant -> "Plain"], 
               Cell[
                StyleData[
                "DefinitionLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "DefinitionLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "DefinitionLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["DefinitionContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "DefinitionContinuation", StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "DefinitionContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "DefinitionContinuation", "SlideShow", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "DefinitionContinuation", "Printout", StyleDefinitions -> 
                 None], TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Proposition", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Proposition"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Proposition", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "Proposition", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "Proposition", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "Proposition", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["PropositionLabel"], StyleMenuListing -> None, 
                FontWeight -> "Bold", FontSlant -> "Plain"], 
               Cell[
                StyleData[
                "PropositionLabel", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "PropositionLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "PropositionLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["PropositionContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "PropositionContinuation", StyleMenuListing -> None, 
                FontSlant -> "Italic"], 
               Cell[
                StyleData[
                "PropositionContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "PropositionContinuation", "SlideShow", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "PropositionContinuation", "Printout", StyleDefinitions -> 
                 None], TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Conjecture", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Conjecture"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Conjecture", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "Conjecture", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "Conjecture", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Conjecture", "Printout", StyleDefinitions -> None],
                 TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ConjectureLabel"], StyleMenuListing -> None, 
                FontWeight -> "Bold", FontSlant -> "Plain"], 
               Cell[
                StyleData[
                "ConjectureLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "ConjectureLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "ConjectureLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["ConjectureContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "ConjectureContinuation", StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "ConjectureContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "ConjectureContinuation", "SlideShow", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "ConjectureContinuation", "Printout", StyleDefinitions -> 
                 None], TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Axiom", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Axiom"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Axiom", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData["Axiom", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData["Axiom", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Axiom", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["AxiomLabel"], StyleMenuListing -> None, FontWeight -> 
                "Bold", FontSlant -> "Plain"], 
               Cell[
                StyleData[
                "AxiomLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "AxiomLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "AxiomLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["AxiomContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "AxiomContinuation", StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "AxiomContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "AxiomContinuation", "SlideShow", StyleDefinitions -> None]], 
               
               Cell[
                StyleData[
                "AxiomContinuation", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Rule", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Rule"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Rule", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData["Rule", "Presentation", StyleDefinitions -> None]], 
               
               Cell[
                StyleData["Rule", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Rule", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["RuleLabel"], StyleMenuListing -> None, FontWeight -> 
                "Bold", FontSlant -> "Plain"], 
               Cell[
                StyleData[
                "RuleLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "RuleLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "RuleLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["RuleContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "RuleContinuation", StyleMenuListing -> None, FontSlant -> 
                "Italic"], 
               Cell[
                StyleData[
                "RuleContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "RuleContinuation", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "RuleContinuation", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Remark", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Remark"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterIncrements -> "Remark", 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Plain"], 
               Cell[
                StyleData[
                "Remark", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData["Remark", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Remark", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["RemarkLabel"], StyleMenuListing -> None, 
                FontWeight -> "Bold", FontSlant -> "Italic"], 
               Cell[
                StyleData[
                "RemarkLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "RemarkLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "RemarkLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["RemarkContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "RemarkContinuation", StyleMenuListing -> None], 
               Cell[
                StyleData[
                "RemarkContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "RemarkContinuation", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "RemarkContinuation", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Solution", "Subsubsection", StyleMenuListing -> None], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Solution"], CellMargins -> {{21, 21}, {4, 4}}, 
                CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, ParagraphIndent -> 24, 
                CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
                  "Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant -> 
                "Plain"], 
               Cell[
                StyleData[
                "Solution", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData["Solution", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData["Solution", "Printout", StyleDefinitions -> None], 
                TextJustification -> 1.]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["SolutionLabel"], StyleMenuListing -> None, 
                FontWeight -> "Bold", FontSlant -> "Italic"], 
               Cell[
                StyleData[
                "SolutionLabel", "Presentation", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "SolutionLabel", "SlideShow", StyleDefinitions -> None]], 
               Cell[
                StyleData[
                "SolutionLabel", "Printout", StyleDefinitions -> None]]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["SolutionContinuation"], 
                CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules -> 
                "GraphicsGrouping", Hyphenation -> True, 
                LineSpacing -> {1, 1}, CounterIncrements -> 
                "SolutionContinuation", StyleMenuListing -> None], 
               Cell[
                StyleData[
                "SolutionContinuation", "Presentation", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "SolutionContinuation", "SlideShow", StyleDefinitions -> 
                 None]], 
               Cell[
                StyleData[
                "SolutionContinuation", "Printout", StyleDefinitions -> None],
                 TextJustification -> 1.]}, Closed]]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Display Formulas and Programming", "Section", CellFrame -> False, 
          CellDingbat -> None, ShowCellBracket -> True, 
          CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DisplayFormula"], CellMargins -> {{39, 21}, {4, 4}}, 
             CellHorizontalScrolling -> True, PageBreakAbove -> False, 
             DefaultFormatType -> TraditionalForm, LineSpacing -> {1, 1}, 
             ScriptLevel -> 0, SingleLetterItalics -> True, SpanMaxSize -> 
             DirectedInfinity[1], FormatTypeAutoConvert -> False, FontFamily -> 
             "Times", FontSize -> 12, 
             UnderoverscriptBoxOptions -> {LimitsPositioning -> True}, 
             GridBoxOptions -> {AllowScriptLevelChange -> False}], 
            Cell[
             StyleData[
             "DisplayFormula", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "DisplayFormula", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "DisplayFormula", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Program"], CellMargins -> {{21, 21}, {8, 10}}, 
             LineSpacing -> {1, 1}, MenuSortingValue -> 1455, FontFamily -> 
             "Courier", FontSize -> 12, FontWeight -> "Plain"], 
            Cell[
             StyleData["Program", "Presentation", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["Program", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Program", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Table"], CellMargins -> {{21, 21}, {8, 10}}, 
             DefaultFormatType -> TraditionalForm, TextAlignment -> Center, 
             LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12, 
             Background -> GrayLevel[0.899001]], 
            Cell[
             StyleData["Table", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Table", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Table", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
         "PseudoCellExpression cell style to be used when displaying \
unformatted box expressions. ", "Text"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["PseudoCellExpression"], 
             CellFrame -> {{0, 0}, {0, 0.5}}, 
             CellMargins -> {{21, 21}, {Inherited, Inherited}}, 
             CellFrameMargins -> 2, LineSpacing -> {1, 1}, FontFamily -> 
             "Courier", FontSize -> 12], 
            Cell[
             StyleData[
             "PseudoCellExpression", "Presentation", StyleDefinitions -> 
              None]], 
            Cell[
             StyleData[
             "PseudoCellExpression", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData[
             "PseudoCellExpression", "Printout", StyleDefinitions -> None]]}, 
           Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Styles for Headers and Footers", "Section", CellFrame -> False, 
          CellDingbat -> None, ShowCellBracket -> True, 
          CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          StyleData["Header"], CellMargins -> {{0, 0}, {4, 1}}, 
          StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 9, 
          FontSlant -> "Italic"], 
         Cell[
          StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, 
          StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 9, 
          FontWeight -> "Bold", FontSlant -> "Plain"], 
         Cell[
          StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}}, 
          StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7, 
          FontSlant -> "Oblique"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Hyperlink Styles", "Section", CellFrame -> False, CellDingbat -> 
          None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell["The cells below define styles used for ButtonBoxes.", "Text"], 
         
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Hyperlink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, 
             FontVariations -> {"Underline" -> True}, FontColor -> 
             RGBColor[
              0.9230792706187534, 0.3988097962920577, 0.1662928206301976], 
             ButtonBoxOptions -> {
              Active -> True, ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> 
               ButtonData}], 
            Cell[
             StyleData[
             "Hyperlink", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["Hyperlink", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["Hyperlink", "Printout", StyleDefinitions -> None], 
             FontVariations -> {"Underline" -> False}, FontColor -> 
             GrayLevel[0]]}, Closed]], 
         Cell[
         "The following styles are for linking automatically to the locally \
installed on-line help system.", "Text"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["MainBookLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, 
             FontVariations -> {"Underline" -> True}, FontColor -> 
             RGBColor[
              0.9230792706187534, 0.3988097962920577, 0.1662928206301976], 
             ButtonBoxOptions -> {
              Active -> True, Appearance -> {Automatic, None}, 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], 
            Cell[
             StyleData[
             "MainBookLink", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "MainBookLink", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "MainBookLink", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["AddOnsLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, 
             FontVariations -> {"Underline" -> True}, FontColor -> 
             RGBColor[
              0.9230792706187534, 0.3988097962920577, 0.1662928206301976], 
             ButtonBoxOptions -> {
              Active -> True, Appearance -> {Automatic, None}, 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], 
            Cell[
             StyleData[
             "AddOnsLink", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["AddOnsLink", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["AddOnsLink", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["RefGuideLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, 
             FontVariations -> {"Underline" -> True}, FontColor -> 
             RGBColor[
              0.9230792706187534, 0.3988097962920577, 0.1662928206301976], 
             ButtonBoxOptions -> {
              Active -> True, Appearance -> {Automatic, None}, 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], 
            Cell[
             StyleData[
             "RefGuideLink", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "RefGuideLink", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "RefGuideLink", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["GettingStartedLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, 
             FontVariations -> {"Underline" -> True}, FontColor -> 
             RGBColor[
              0.9230792706187534, 0.3988097962920577, 0.1662928206301976], 
             ButtonBoxOptions -> {
              Active -> True, Appearance -> {Automatic, None}, 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], 
            Cell[
             StyleData[
             "GettingStartedLink", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "GettingStartedLink", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "GettingStartedLink", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["OtherInformationLink"], StyleMenuListing -> None, 
             ButtonStyleMenuListing -> Automatic, 
             FontVariations -> {"Underline" -> True}, FontColor -> 
             RGBColor[
              0.9230792706187534, 0.3988097962920577, 0.1662928206301976], 
             ButtonBoxOptions -> {
              Active -> True, Appearance -> {Automatic, None}, 
               ButtonFunction :> (FrontEndExecute[{
                  FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], 
            Cell[
             StyleData[
             "OtherInformationLink", "Presentation", StyleDefinitions -> 
              None]], 
            Cell[
             StyleData[
             "OtherInformationLink", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData[
             "OtherInformationLink", "Printout", StyleDefinitions -> None]]}, 
           Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "FormatType Styles", "Section", CellFrame -> False, CellDingbat -> 
          None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
         "These cells define styles that are mixed in with other cells.  If \
the FormatType of a cell style matches the name of one of the styles defined \
below, then that style is applied along with the local cell style \
definitions. ", "Text", CellMargins -> {{24, 0}, {Inherited, Inherited}}], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["CellExpression"], CellMargins -> {{54, 24}, {2, 4}}, 
             ShowCellLabel -> False, ShowSpecialCharacters -> False, 
             AllowInlineCells -> False, Hyphenation -> False, 
             LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing -> 
             None, FontFamily -> "Courier", FontSize -> 12, Background -> 
             GrayLevel[1]], 
            Cell[
             StyleData[
             "CellExpression", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "CellExpression", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "CellExpression", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InputForm"], PageWidth -> WindowWidth, 
             InputAutoReplacements -> {}, AllowInlineCells -> False, 
             Hyphenation -> False, AutoSpacing -> False, NumberMarks -> True, 
             AutoNumberFormatting -> False, StyleMenuListing -> None, 
             FontFamily -> "Courier"], 
            Cell[
             StyleData[
             "InputForm", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["InputForm", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData["InputForm", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["OutputForm"], StyleMenuListing -> None, FontFamily -> 
             "Courier"], 
            Cell[
             StyleData[
             "OutputForm", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["OutputForm", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["OutputForm", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["StandardForm"], 
             InputAutoReplacements -> {
              "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> 
               "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> 
               "\[NotEqual]", "==" -> "\[Equal]", ParentList}, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             SingleLetterItalics -> False, StyleMenuListing -> None, 
             FontFamily -> "Courier"], 
            Cell[
             StyleData[
             "StandardForm", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "StandardForm", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "StandardForm", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["TraditionalForm"], TextClipboardType -> "PlainText", 
             InputAutoReplacements -> {
              "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> 
               "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> 
               "\[NotEqual]", "==" -> "\[Equal]", ParentList}, 
             ShowSyntaxStyles -> False, 
             "TwoByteSyntaxCharacterAutoReplacement" -> True, 
             SingleLetterItalics -> True, TraditionalFunctionNotation -> True,
              DelimiterMatching -> None, ZeroWidthTimes -> False, 
             StyleMenuListing -> None], 
            Cell[
             StyleData[
             "TraditionalForm", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "TraditionalForm", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "TraditionalForm", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
         "The style defined below is mixed in to any cell that is in an \
inline cell within another.", "Text", 
          CellMargins -> {{24, 0}, {Inherited, Inherited}}], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineCell"], TextAlignment -> Left, ScriptLevel -> 1,
              StyleMenuListing -> None], 
            Cell[
             StyleData[
             "InlineCell", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData["InlineCell", "SlideShow", StyleDefinitions -> None]], 
            
            Cell[
             StyleData["InlineCell", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineCellEditing"], StyleMenuListing -> None, 
             Background -> RGBColor[1, 0.749996, 0.8]], 
            Cell[
             StyleData[
             "InlineCellEditing", "Presentation", StyleDefinitions -> None]], 
            
            Cell[
             StyleData[
             "InlineCellEditing", "SlideShow", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "InlineCellEditing", "Printout", StyleDefinitions -> None]]}, 
           Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Inline Formatting", "Section", CellFrame -> False, CellDingbat -> 
          None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1], 
          Background -> RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          StyleData["RM"], FontWeight -> "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["MR"], 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> 
          "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["MO"], 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> 
          "Plain", FontSlant -> "Oblique"], 
         Cell[
          StyleData["MB"], 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> 
          "Bold", FontSlant -> "Plain"], 
         Cell[
          StyleData["MBO"], 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> 
          "Bold", FontSlant -> "Oblique"], 
         Cell[
          StyleData["AboutAuthorR"], FontFamily -> "Times", FontWeight -> 
          "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["AboutAuthorI"], FontFamily -> "Times", FontWeight -> 
          "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["AboutAuthorB"], FontFamily -> "Times", FontWeight -> 
          "Bold", FontSlant -> "Plain"], 
         Cell[
          StyleData["AboutAuthorBI"], FontFamily -> "Times", FontWeight -> 
          "Bold", FontSlant -> "Italic"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["MCode"], "TwoByteSyntaxCharacterAutoReplacement" -> 
             True, HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", AutoSpacing -> True, ScriptLevel -> 1, 
             SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> 
             None, FontFamily -> "Courier", 
             ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
             FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, 
             GridBoxOptions -> {
              GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["MCode", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Math"], DefaultFormatType -> "DefaultTextFormatType", 
             DefaultInlineFormatType -> "TraditionalForm", LanguageCategory -> 
             "Formula", AutoSpacing -> True, ScriptLevel -> 1, 
             AutoMultiplicationSymbol -> False, SingleLetterItalics -> True, 
             SpanMaxSize -> Infinity, StyleMenuListing -> None, FontFamily -> 
             "Times", ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
             GridBoxOptions -> {
              BaseStyle -> {FontFamily -> "Times"}, GridBoxDividers -> {}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{1.}}, "RowsIndexed" -> {}}, 
               GridBoxSpacings -> {}}], 
            Cell[
             StyleData["Math", "Printout", StyleDefinitions -> None]]}, 
           Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
         "Editorial", "Section", CellFrame -> False, CellDingbat -> None, 
          ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}}, 
          CellFrameMargins -> {{20, 4}, {8, 8}}, 
          CellChangeTimes -> {{3.481313643935946*^9, 3.481313646546287*^9}}, 
          FontColor -> GrayLevel[1], Background -> 
          RGBColor[0.269902, 0.558434, 0.715618]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["EditorialComment"], CellFrame -> False, CellDingbat -> 
             "\[FilledCircle]", 
             CellMargins -> {{36, 25}, {Inherited, Inherited}}, 
             LineSpacing -> {1, 1}, MenuSortingValue -> None, FontColor -> 
             RGBColor[
              0.9230792706187534, 0.3988097962920577, 0.1662928206301976], 
             Background -> GrayLevel[1]], 
            Cell[
             StyleData[
             "EditorialComment", "Presentation", StyleDefinitions -> None]], 
            Cell[
             StyleData[
             "EditorialComment", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["TextAnnotation"], CellFrame -> 1, CellFrameColor -> 
             RGBColor[0.8, 0, 0], AutoSpacing -> False, LineIndent -> 
             Automatic, FontSize -> 11, FontWeight -> "Plain", FontColor -> 
             RGBColor[0.4, 0.2, 0.2], Background -> GrayLevel[0.999]], 
            Cell[
             StyleData[
             "TextAnnotation", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["TextAnnotationButton"], Editable -> False, FontFamily -> 
             "Verdana", FontSize -> 9, 
             ButtonBoxOptions -> {
              Active -> True, Appearance -> "DialogBox", 
               ButtonFunction :> (Needs["DocuTools`"]; 
                DocuTools`GenerateAnnotationDialog[]), ButtonMargins -> 1, 
               Evaluator -> Automatic, Method -> "Queued"}], 
            Cell[
             StyleData[
             "TextAnnotationButton", "Printout", StyleDefinitions -> None]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["TextAnnotationRemoveButton"], Editable -> False, 
             FontFamily -> "Verdana", FontSize -> 9, 
             ButtonBoxOptions -> {
              Active -> True, Appearance -> "DialogBox", 
               ButtonFunction :> (Needs["DocuTools`"]; 
                DocuTools`AnnotationRemove[
                 DocuTools`CalledFromFrameLabel -> True]), ButtonMargins -> 1,
                Evaluator -> Automatic, Method -> "Queued"}], 
            Cell[
             StyleData[
             "TextAnnotationRemoveButton", "Printout", StyleDefinitions -> 
              None]]}, Closed]]}, Closed]]}, Open]]}, Visible -> False, 
  FrontEndVersion -> 
  "11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (August 1, 2016)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"],
$CellContext`CreateCellID -> True,
PrivateNotebookOptions -> {"NotebookAuthor" -> ""}
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "OnlineHeader"->{
  Cell[557, 20, 189, 7, 26, "OnlineHeader",
   CellTags->"OnlineHeader"]},
 "Table1"->{
  Cell[10816, 375, 336, 11, 20, "NumberedTableCaption",
   CellTags->"Table1"],
  Cell[13864, 457, 237, 10, 20, "NumberedTableCaption",
   CellTags->"Table1"],
  Cell[17492, 554, 237, 10, 20, "NumberedTableCaption",
   CellTags->"Table1"],
  Cell[21814, 667, 237, 10, 20, "NumberedTableCaption",
   CellTags->"Table1"]},
 "visualizefacetsurface"->{
  Cell[23623, 761, 62, 1, 57, "Section",
   CellTags->"visualizefacetsurface"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"OnlineHeader", 127504, 3137},
 {"Table1", 127592, 3140},
 {"visualizefacetsurface", 127941, 3149}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 189, 7, 26, "OnlineHeader",
 CellTags->"OnlineHeader"],
Cell[CellGroupData[{
Cell[771, 31, 33, 0, 51, "Title"],
Cell[807, 33, 39, 0, 31, "Subtitle"],
Cell[849, 35, 72, 3, 41, "Author"],
Cell[924, 40, 126, 3, 43, "Abstract"],
Cell[1053, 45, 185, 6, 35, "DisplayFormula"],
Cell[1241, 53, 55, 0, 43, "Abstract"],
Cell[CellGroupData[{
Cell[1321, 57, 43, 0, 57, "Section"],
Cell[1367, 59, 129, 3, 22, "Text"],
Cell[1499, 64, 195, 6, 20, "Text"],
Cell[1697, 72, 117, 3, 20, "Text"],
Cell[1817, 77, 202, 6, 35, "DisplayFormula"],
Cell[2022, 85, 113, 5, 20, "Text"],
Cell[2138, 92, 93, 2, 20, "Text"],
Cell[2234, 96, 193, 5, 35, "DisplayFormulaNumbered"],
Cell[2430, 103, 136, 3, 20, "Text"],
Cell[CellGroupData[{
Cell[2591, 110, 49, 1, 32, "Input"],
Cell[2643, 113, 28, 0, 30, "Output"]
}, Open  ]],
Cell[2686, 116, 51, 0, 20, "Text"],
Cell[2740, 118, 668, 18, 92, "Code"],
Cell[3411, 138, 170, 5, 48, "Program",
 Evaluatable->False],
Cell[3584, 145, 264, 9, 20, "NumberedProgramCaption"],
Cell[CellGroupData[{
Cell[3873, 158, 49, 0, 51, "Subsection"],
Cell[3925, 160, 99, 2, 20, "Quote",
 CellID->6727225],
Cell[4027, 164, 33, 0, 20, "Text"],
Cell[4063, 166, 188, 5, 35, "DisplayFormulaNumbered"],
Cell[CellGroupData[{
Cell[4276, 175, 56, 0, 20, "ItemNumbered"],
Cell[4335, 177, 58, 0, 20, "ItemParagraph"],
Cell[CellGroupData[{
Cell[4418, 181, 61, 0, 20, "SubitemNumbered"],
Cell[4482, 183, 72, 0, 20, "SubitemParagraph"],
Cell[4557, 185, 61, 0, 20, "SubitemNumbered"],
Cell[4621, 187, 72, 0, 20, "SubitemParagraph"]
}, Open  ]],
Cell[4708, 190, 56, 0, 20, "ItemNumbered"],
Cell[4767, 192, 58, 0, 20, "ItemParagraph"],
Cell[4828, 194, 56, 0, 20, "ItemNumbered"],
Cell[4887, 196, 58, 0, 20, "ItemParagraph"]
}, Open  ]],
Cell[4960, 199, 41, 0, 37, "Question"],
Cell[5004, 201, 104, 2, 20, "Answer",
 CellID->109399069],
Cell[5111, 205, 32, 0, 20, "Text"],
Cell[CellGroupData[{
Cell[5168, 209, 39, 0, 20, "Item"],
Cell[5210, 211, 58, 0, 20, "ItemParagraph"],
Cell[CellGroupData[{
Cell[5293, 215, 45, 0, 20, "Subitem"],
Cell[5341, 217, 64, 0, 20, "SubitemParagraph"],
Cell[5408, 219, 45, 0, 20, "Subitem"],
Cell[5456, 221, 64, 0, 20, "SubitemParagraph"]
}, Open  ]],
Cell[5535, 224, 39, 0, 20, "Item"],
Cell[5577, 226, 58, 0, 20, "ItemParagraph"],
Cell[5638, 228, 39, 0, 20, "Item"],
Cell[5680, 230, 58, 0, 20, "ItemParagraph"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5775, 235, 49, 0, 39, "Subsubsection"],
Cell[5827, 237, 55, 0, 20, "Text"],
Cell[5885, 239, 1025, 20, 166, "PlacedGraphics"],
Cell[6913, 261, 413, 12, 31, "NumberedFigureCaption"],
Cell[7329, 275, 1031, 20, 166, "PlacedGraphics"],
Cell[8363, 297, 211, 9, 20, "NumberedFigureCaption"],
Cell[CellGroupData[{
Cell[8599, 310, 61, 0, 39, "Subsubsubsection"],
Cell[8663, 312, 33, 0, 20, "Text"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8769, 320, 43, 0, 57, "Section"],
Cell[8815, 322, 1998, 51, 129, "Table"],
Cell[10816, 375, 336, 11, 20, "NumberedTableCaption",
 CellTags->"Table1"],
Cell[11155, 388, 2706, 67, 129, "Table"],
Cell[13864, 457, 237, 10, 20, "NumberedTableCaption",
 CellTags->"Table1"],
Cell[14104, 469, 3385, 83, 129, "Table"],
Cell[17492, 554, 237, 10, 20, "NumberedTableCaption",
 CellTags->"Table1"],
Cell[17732, 566, 4079, 99, 144, "Table"],
Cell[21814, 667, 237, 10, 20, "NumberedTableCaption",
 CellTags->"Table1"],
Cell[CellGroupData[{
Cell[22076, 681, 49, 0, 51, "Subsection"],
Cell[22128, 683, 66, 1, 20, "Text"],
Cell[CellGroupData[{
Cell[22219, 688, 43, 0, 20, "Theorem"],
Cell[22265, 690, 65, 0, 20, "TheoremContinuation"]
}, Open  ]],
Cell[22345, 693, 68, 1, 20, "Text"],
Cell[CellGroupData[{
Cell[22438, 698, 47, 0, 20, "Corollary"],
Cell[22488, 700, 89, 1, 20, "CorollaryContinuation",
 CellID->439416223]
}, Open  ]],
Cell[22592, 704, 376, 19, 20, "Text",
 CellID->521592909],
Cell[22971, 725, 67, 1, 20, "Text"],
Cell[CellGroupData[{
Cell[23063, 730, 43, 0, 20, "Example"],
Cell[23109, 732, 65, 0, 20, "ExampleContinuation"]
}, Open  ]],
Cell[23189, 735, 205, 11, 20, "Text"],
Cell[23397, 748, 83, 2, 20, "Text",
 CellID->1458400839],
Cell[23483, 752, 59, 1, 20, "Text",
 CellID->2010620548],
Cell[23545, 755, 29, 0, 23, "QED"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23623, 761, 62, 1, 57, "Section",
 CellTags->"visualizefacetsurface"],
Cell[23688, 764, 40, 0, 20, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23765, 769, 29, 0, 57, "Section"],
Cell[23797, 771, 43, 0, 20, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23877, 776, 27, 0, 57, "Section"],
Cell[23907, 778, 41, 0, 20, "Text"],
Cell[23951, 780, 180, 5, 35, "DisplayFormula"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24168, 790, 34, 0, 57, "Section"],
Cell[24205, 792, 47, 0, 20, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24289, 797, 49, 1, 57, "Section",
 CellID->496069258],
Cell[24341, 800, 320, 10, 20, "Reference"],
Cell[24664, 812, 340, 10, 20, "Reference"],
Cell[25007, 824, 357, 10, 31, "Reference"],
Cell[25367, 836, 199, 8, 20, "Reference"],
Cell[25569, 846, 219, 8, 20, "Reference"],
Cell[25791, 856, 236, 8, 20, "Reference"],
Cell[26030, 866, 401, 8, 31, "Reference"],
Cell[26434, 876, 438, 8, 31, "Reference"],
Cell[26875, 886, 438, 8, 31, "Reference"],
Cell[27316, 896, 253, 4, 31, "Reference"],
Cell[27572, 902, 280, 7, 20, "Reference"],
Cell[27855, 911, 159, 4, 20, "Reference"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28051, 920, 47, 0, 53, "SectionAboutAuthor"],
Cell[28101, 922, 71, 0, 19, "TextAboutAuthor"],
Cell[28175, 924, 84, 1, 19, "TextAboutAuthor"],
Cell[28262, 927, 492, 12, 84, "TextAboutAuthor",
 CellID->1328340278],
Cell[28757, 941, 549, 14, 84, "TextAboutAuthor",
 CellID->175058134]
}, Open  ]]
}, Open  ]]
}
]
*)

